home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / koki / koki.bas next >
BASIC Source File  |  1993-11-30  |  7KB  |  220 lines
  1. 10000 CLS:CD STOP:CLEAR
  2. 10010 COLOR 1
  3. 10020 PRINT "**** 国旗表示プログラム V2.1L10 ****"
  4. 10030 COLOR 2
  5. 10040 PRINT " 1 日本          16 トンガ"
  6. 10050 PRINT " 2 イタリア      17 ノルウェー"
  7. 10060 PRINT " 3 インドネシア  18 バングラディシュ"
  8. 10070 PRINT " 4 エチオピア    19 フィンランド"
  9. 10080 PRINT " 5 オーストリア  20 フランス"
  10. 10090 PRINT " 6 オランダ      21 ベルギー"
  11. 10100 PRINT " 7 ギリシア      22 ポーランド" 
  12. 10110 PRINT " 8 コロンビア    23 ルーマニア" 
  13. 10120 PRINT " 9 スイス        24 お･し･ま･い"
  14. 10130 PRINT "10 スウェーデン"
  15. 10140 PRINT "11 タイ"
  16. 10150 PRINT "12 タンザニア"
  17. 10160 PRINT "13 チェコ"
  18. 10170 PRINT "14 デンマーク"
  19. 10180 PRINT "15 ドイツ"
  20. 10190 COLOR 7
  21. 10200 INPUT "何番の国旗を表示しますか";A
  22. 10210 IF A=1 THEN GOTO 10460
  23. 10220 IF A=2 THEN GOTO 10510
  24. 10230 IF A=3 THEN GOTO 10570
  25. 10240 IF A=4 THEN GOTO 10620
  26. 10250 IF A=5 THEN GOTO 10680
  27. 10260 IF A=6 THEN GOTO 10750
  28. 10270 IF A=7 THEN GOTO 10800
  29. 10280 IF A=8 THEN GOTO 10930
  30. 10290 IF A=9 THEN GOTO 10990
  31. 10300 IF A=10 THEN GOTO 11050
  32. 10310 IF A=11 THEN GOTO 11130
  33. 10320 IF A=12 THEN GOTO 11210
  34. 10330 IF A=13 THEN GOTO 11330
  35. 10340 IF A=14 THEN GOTO 11430
  36. 10350 IF A=15 THEN GOTO 11510
  37. 10360 IF A=16 THEN GOTO 11570
  38. 10370 IF A=17 THEN GOTO 11640
  39. 10380 IF A=18 THEN GOTO 11760
  40. 10390 IF A=19 THEN GOTO 11810
  41. 10400 IF A=20 THEN GOTO 11890
  42. 10410 IF A=21 THEN GOTO 11950
  43. 10420 IF A=22 THEN GOTO 12010 
  44. 10430 IF A=23 THEN GOTO 12060
  45. 10440 IF A=24 THEN GOTO 12120
  46. 10450 GOTO 10000
  47. 10460 '□日本□ 
  48. 10470 CLS
  49. 10480 LINE(160,80)-(486,320),PSET,7,BF
  50. 10490 CIRCLE(320,202),75,2,,,,F
  51. 10500 GOSUB *もどる
  52. 10510 '□イタリア□
  53. 10520 CLS
  54. 10530 LINE(160,96)-(272,304),PSET,4,BF
  55. 10540 LINE(272,96)-(384,304),PSET,7,BF
  56. 10550 LINE(384,96)-(496,304),PSET,2,BF
  57. 10560 GOSUB *もどる
  58. 10570 '□インドネシア□ 
  59. 10580 CLS
  60. 10590 LINE(160,80)-(486,210),PSET,2,BF
  61. 10600 LINE(160,200)-(486,320),PSET,7,BF
  62. 10610 GOSUB *もどる
  63. 10620 '□エチオピア□
  64. 10630 CLS
  65. 10640 LINE(160,80)-(486,160),PSET,4,BF
  66. 10650 LINE(160,160)-(486,240),PSET,6,BF
  67. 10660 LINE(160,240)-(486,320),PSET,2,BF
  68. 10670 GOSUB *もどる
  69. 10680 '□オーストリア□
  70. 10690 CLS
  71. 10700 LINE(160,80)-(486,160),PSET,2,BF
  72. 10710 LINE(160,160)-(486,240),PSET,7,BF
  73. 10720 LINE(160,240)-(486,320),PSET,2,BF
  74. 10730 GOSUB *もどる
  75. 10740 '□オランダ□
  76. 10750 CLS
  77. 10760 LINE(160,80)-(486,160),PSET,2,BF
  78. 10770 LINE(160,160)-(486,240),PSET,7,BF
  79. 10780 LINE(160,240)-(486,320),PSET,1,BF
  80. 10790 GOSUB *もどる
  81. 10800 '□ギリシア□
  82. 10810 CLS
  83. 10820 LINE(100,80)-(550,350),PSET,7,BF,7
  84. 10830 LINE(100,80)-(160,140),PSET,1,BF,1
  85. 10840 LINE(190,80)-(250,140),PSET,1,BF,1
  86. 10850 LINE(100,170)-(160,230),PSET,1,BF,1
  87. 10860 LINE(190,170)-(250,230),PSET,1,BF,1
  88. 10870 LINE(250,80)-(550,110),PSET,1,BF,1
  89. 10880 LINE(250,140)-(550,170),PSET,1,BF,1
  90. 10890 LINE(250,200)-(550,230),PSET,1,BF,1
  91. 10900 LINE(100,260)-(550,290),PSET,1,BF,1
  92. 10910 LINE(100,320)-(550,350),PSET,1,BF,1 
  93. 10920 GOSUB *もどる
  94. 10930 '□コロンビア□
  95. 10940 CLS
  96. 10950 LINE(160,80)-(486,210),PSET,6,BF
  97. 10960 LINE(160,200)-(486,320),PSET,1,BF
  98. 10970 LINE(160,260)-(486,320),PSET,2,BF
  99. 10980 GOSUB *もどる
  100. 10990 '□スイス□
  101. 11000 CLS
  102. 11010 LINE(205,80)-(445,320),PSET,2,BF,2
  103. 11020 LINE(300,115)-(350,285),PSET,7,BF,7
  104. 11030 LINE(240,175)-(410,225),PSET,7,BF,7
  105. 11040 GOSUB *もどる
  106. 11050 '□スウェーデン□
  107. 11060 CLS
  108. 11070 LINE(160,80)-(486,320),PSET,6,BF
  109. 11080 LINE(160,80)-(250,180),PSET,1,BF
  110. 11090 LINE(300,80)-(486,180),PSET,1,BF
  111. 11100 LINE(160,230)-(250,320),PSET,1,BF
  112. 11110 LINE(300,230)-(486,320),PSET,1,BF
  113. 11120 GOSUB *もどる
  114. 11130 '□タイ□
  115. 11140 CLS
  116. 11150 LINE(160,80)-(486,160),PSET,7,BF
  117. 11160 LINE(160,160)-(486,240),PSET,1,BF
  118. 11170 LINE(160,240)-(486,320),PSET,7,BF
  119. 11180 LINE(160,80)-(486,125),PSET,2,BF
  120. 11190 LINE(160,280)-(486,320),PSET,2,BF
  121. 11200 GOSUB *もどる
  122. 11210 '□タンザニア□
  123. 11220 CLS
  124. 11230 LINE(160,80)-(486,320),PSET,7,B
  125. 11240 LINE(455,80)-(160,285),PSET,7
  126. 11250 LINE(486,125)-(195,320),PSET,7
  127. 11260 LINE(440,80)-(160,270),PSET,7
  128. 11270 LINE(486,135)-(210,320),PSET,7
  129. 11280 PAINT(170,90),4,7
  130. 11290 PAINT(476,155),1,7
  131. 11300 PAINT(442,82),6,7
  132. 11310 PAINT(480,137),6,7
  133. 11320 GOSUB *もどる
  134. 11330 '□チェコ□
  135. 11340 CLS
  136. 11350 LINE(160,80)-(486,320),PSET,7,B
  137. 11360 LINE(325,200)-(486,200),PSET,7
  138. 11370 LINE(160,80)-(325,200),PSET,7
  139. 11380 LINE(325,200)-(160,320),PSET,7
  140. 11390 PAINT(200,200),1,7
  141. 11400 PAINT(400,300),2,7
  142. 11410 PAINT(400,150),7,7
  143. 11420 GOSUB *もどる
  144. 11430 '□デンマーク□
  145. 11440 CLS
  146. 11450 LINE(160,80)-(486,320),PSET,7,BF
  147. 11460 LINE(160,80)-(250,180),PSET,2,BF
  148. 11470 LINE(300,80)-(486,180),PSET,2,BF
  149. 11480 LINE(160,230)-(250,320),PSET,2,BF
  150. 11490 LINE(300,230)-(486,320),PSET,2,BF
  151. 11500 GOSUB *もどる
  152. 11510 '□ドイツ□
  153. 11520 CLS
  154. 11530 LINE(160,80)-(486,160),PSET,7,B
  155. 11540 LINE(160,160)-(486,240),PSET,2,BF
  156. 11550 LINE(160,240)-(486,320),PSET,6,BF
  157. 11560 GOSUB *もどる
  158. 11570 '□トンガ□
  159. 11580 CLS
  160. 11590 LINE(100,80)-(560,340),PSET,2,BF
  161. 11600 LINE(100,80)-(300,210),PSET,7,BF
  162. 11610 LINE(180,90)-(225,200),PSET,2,BF
  163. 11620 LINE(150,125)-(255,170),PSET,2,BF
  164. 11630 GOSUB *もどる
  165. 11640 '□ノルウェー□
  166. 11650 CLS
  167. 11660 LINE(160,80)-(486,320),PSET,1,BF
  168. 11670 LINE(160,80)-(260,190),PSET,7,BF
  169. 11680 LINE(160,80)-(250,180),PSET,2,BF
  170. 11690 LINE(290,80)-(486,190),PSET,7,BF
  171. 11700 LINE(300,80)-(486,180),PSET,2,BF
  172. 11710 LINE(160,220)-(260,320),PSET,7,BF
  173. 11720 LINE(160,230)-(250,320),PSET,2,BF
  174. 11730 LINE(290,220)-(486,320),PSET,7,BF
  175. 11740 LINE(300,230)-(486,320),PSET,2,BF
  176. 11750 GOSUB *もどる
  177. 11760 '□バングラディシュ□
  178. 11770 CLS
  179. 11780 LINE(160,80)-(486,320),PSET,4,BF
  180. 11790 CIRCLE(320,202),75,2,,,,F
  181. 11800 GOSUB *もどる
  182. 11810 '□フィンランド□
  183. 11820 CLS
  184. 11830 LINE(160,80)-(486,320),PSET,5,BF
  185. 11840 LINE(160,80)-(250,180),PSET,7,BF
  186. 11850 LINE(300,80)-(486,180),PSET,7,BF
  187. 11860 LINE(160,230)-(250,320),PSET,7,BF
  188. 11870 LINE(300,230)-(486,320),PSET,7,BF
  189. 11880 GOSUB *もどる
  190. 11890 '□フランス□
  191. 11900 CLS
  192. 11910 LINE(160,96)-(272,304),PSET,1,BF
  193. 11920 LINE(272,96)-(384,304),PSET,7,BF
  194. 11930 LINE(384,96)-(496,304),PSET,2,BF
  195. 11940 GOSUB *もどる
  196. 11950 '□ベルギー□
  197. 11960 CLS
  198. 11970 LINE(160,96)-(272,304),PSET,7,B
  199. 11980 LINE(272,96)-(384,304),PSET,6,BF
  200. 11990 LINE(384,96)-(496,304),PSET,2,BF
  201. 12000 GOSUB *もどる
  202. 12010 '□ポーランド□
  203. 12020 CLS
  204. 12030 LINE(160,80)-(486,210),PSET,7,BF
  205. 12040 LINE(160,200)-(486,320),PSET,2,BF
  206. 12050 GOSUB *もどる
  207. 12060 '□ルーマニア□
  208. 12070 CLS
  209. 12080 LINE(160,96)-(272,304),PSET,1,BF
  210. 12090 LINE(272,96)-(384,304),PSET,6,BF
  211. 12100 LINE(384,96)-(496,304),PSET,2,BF
  212. 12110 GOSUB *もどる
  213. 12120 '□お･し･ま･い□
  214. 12130 END
  215. 12140 '□もどる□ 
  216. 12150 *もどる
  217. 12160 INPUT "もどる時には0を押してください",Z
  218. 12170 IF Z=0 THEN GOTO 10000
  219. 12180 RETURN
  220.